strFileURL = "http://d13yacurqjgara.cloudfront.net/users/8154/screenshots/1340215/klusgids_detail_1x.png"
strHDLocation = "C:\file.png"

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
	Set objADOStream = CreateObject("ADODB.Stream")
	objADOStream.Open
	objADOStream.Type = 1

	objADOStream.Write objXMLHTTP.ResponseBody
	objADOStream.Position = 0

	Set objFSO = Createobject("Scripting.FileSystemObject")
	If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
	Set objFSO = Nothing

	objADOStream.SaveToFile strHDLocation
	objADOStream.Close
	Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing